home *** CD-ROM | disk | FTP | other *** search
/ Programmer Power Tools / Programmer Power Tools.iso / pcmag / vol7n17.arc / NEWVAL.FOR < prev    next >
Encoding:
Text File  |  1988-06-23  |  307 b   |  15 lines
  1. C----------------------------------------------------------------------
  2. C  A demo program to show how to change the value of 1.0
  3. C
  4.       DO 10 I=1,10
  5.         A=FCN(1.0)
  6.         WRITE(*,*)A,1.0
  7.    10 CONTINUE
  8.       STOP
  9.       END
  10.  
  11.       REAL FUNCTION FCN(A)
  12.       A=A+1.0
  13.       FCN=A
  14.       END
  15.